home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ ShellIconCache Clear.xpl < prev    next >
Text File  |  2003-12-08  |  1KB  |  46 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Interface\Icons"
  5. "NAME"="Icon Cache: Clear"
  6. "VERSION"="1.47"
  7. "OSVERSION"="1111100"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Clear Icon Cache"
  10. "DESCRIPTION 1"="Select an item to clear."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"=" "
  15.  
  16.  
  17.  
  18.  
  19. Sub Plugin_Initialize 
  20. End Sub
  21.  
  22. Sub Plugin_CheckData(ElementIndex)
  23. End Sub
  24.  
  25. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  26.   s=GetWinDir
  27.   s=s & "ShellIconCache"
  28.   if FileExists(s) then
  29.    'if GetWinVer=3 then
  30.    ' Call MsgError("The icon cache can't be removed in Windows 98! Please start in DOS Mode and execute the command " & vbCrLF & "DELETE " & GetWinDir & "SHELLI~1")
  31.    'else
  32.     Call FileSetAttribute(s,"R-")
  33.     Call FileSetAttribute(s,"H-")
  34.     Call FileSetAttribute(s,"R-")
  35.     Call FileDelete(s)
  36.     Call MsgInformation("Icon Cache has been cleared")
  37.    'end if
  38.   else
  39.    Call MsgError("The Icon Cache is already empty!")
  40.   end if
  41.  
  42. End Sub
  43.  
  44. Sub Plugin_Terminate 
  45. End Sub
  46.